100 POKE204,0:IN$="":PRINT"]";
110 GETEI$:IFEI$=""THEN110
120 IFEI$=CHR$(13)ANDIN$<>""THENPOKE204,1:PRINT" [157] ":IN=VAL(IN$):RETURN
130 IFEI$=CHR$(20)THENLY=LEN(IN$):IFLY>0THENIN$=LEFT$(IN$,LY-1):PRINT" [157][157] [157]";
140 IFLEN(IN$)=>15THEN110
150 IFEI$="E"THEN190
160 IFEI$="."THEN190
170 IFEI$="-"THEN190
180 IFASC(EI$)>57ORASC(EI$)<48THEN110
190 IN$=IN$+EI$:PRINTEI$;:GOTO110